home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cad403.sfx / T (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  2KB  |  51 lines
  1. 1 GOTO30
  2. 2 I=INT((X-12)/256):POKEO-M,X-12-256*I:POKEO-M-1,I:POKEO-M-2,Y-40:RETURN
  3. 3 GETA$:IFA$=""THEN24
  4. 4 IFA$>"/"ANDA$<":"THENSF=VAL(A$)-SS*(A$="0"):GOTO24
  5. 5 IFA$="[147]"THENSYS36888
  6. 6 IFA$="!"THENSYS36867
  7. 7 IFA$="="THENSYS36882
  8. 8 IFA$="&"THENSYS36879
  9. 9 IFA$="A"THENPOKEO-1,0
  10. 10 IFA$="O"THENPOKEO-1,1
  11. 11 IFA$="X"THENPOKEO-1,2
  12. 12 IFA$=CHR$(136)THEN20
  13. 13 IFA$=CHR$(140)THENGOSUB47
  14. 14 IFMODE=0THEN24
  15. 15 IFA$="N"THENPOKEO-9,0:GOSUB45
  16. 16 IFA$="H"THENPOKEO-9,1:GOSUB45
  17. 17 IFA$="V"THENPOKEO-9,2:GOSUB45
  18. 18 IFA$="R"THENPOKEO-9,3:GOSUB45
  19. 19 GOTO24
  20. 20 FORT=0TO3:A=USR(33),T:NEXT:SYS36912
  21. 21 GETA$:IFA$=""THEN21
  22. 22 POKE780,ASC(A$):SYS32813
  23. 23 GOTO30
  24. 24 X=X+USR(121)*SF:Y=Y-USR(122)*SF
  25. 25 IFX>331THENX=331
  26. 26 IFX<12THENX=12
  27. 27 IFY>239THENY=239
  28. 28 IFY<40THENY=40
  29. 29 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
  30. 30 O=3500:MODE=0:POKEO-8,MODE:POKEO-1,1
  31. 31 A=USR(32),0
  32. 32 GOSUB3:A=USR(117):IFA<>16THEN32
  33. 33 X1=X-12:Y1=Y-40:A=USR(34),X,Y,1:A=USR(32),1:MODE=0:POKEO-8,MODE
  34. 34 A=USR(117):IFA<>0THEN34
  35. 35 GOSUB3:A=USR(117):IFA<>16THEN35
  36. 36 X2=X-12:Y2=Y-40:A=USR(34),X,Y,2:A=USR(32),2
  37. 37 A=USR(117):IFA<>0THEN37
  38. 38 IF(X1=X2)AND(Y1=Y2)THENA=USR(33),1:A=USR(33),2:GOTO31
  39. 39 IFX1>X2THENX3=X2:X2=X1:X1=X3
  40. 40 IFY1>Y2THENY3=Y2:Y2=Y1:Y1=Y3
  41. 41 I=INT(X1/256):POKEO-2,X1-256*I:POKEO-3,I:POKEO-4,Y1
  42. 42 I=INT(X2/256):POKEO-5,X2-256*I:POKEO-6,I:POKEO-7,Y2
  43. 43 A=USR(33),0:SYSO:MODE=1:POKEO-8,MODE:A=USR(32),0
  44. 44 A=USR(33),1:A=USR(33),2:GOTO32
  45. 45 X1=X-12:Y1=Y-40:I=INT(X1/256):POKEO-10,X1-256*I:POKEO-11,I:POKEO-12,Y1
  46. 46 A=USR(33),0:SYSO:A=USR(32),0:RETURN
  47. 47 FI$="JJH[212]":SYS36864:DR=PEEK(36863):POKE36863,PEEK(36862):POKE183,LEN(FI$)
  48. 48 FORT=1TOLEN(FI$):POKE827+T,ASC(MID$(FI$,T,1)):NEXT:SYS32792
  49. 49 GETA$:IFA$=""THEN49
  50. 50 POKE36863,DR:SYS36885:RETURN
  51.